home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / alien.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  2.3 KB  |  78 lines
  1. ReadArchive "statics.vib"
  2.  
  3. static white = '1,1,1'
  4.  
  5. Declare TEX1 = Shader [ PatternSurface [
  6.   PatternModifiers(6,7,0)
  7.   Octaves 6
  8.   Turbulence 5
  9.   Kd 0.8
  10.   Ks 0.2
  11.   CookSpecularBRDF 5
  12.   SpectrumOfColors(
  13.      [0.000, '0.910, 0.788, 0.788', 0.316, '0.922, 0.914, 0.871']
  14.      [0.316, '0.922, 0.914, 0.871', 0.453, '0.894, 0.867, 0.780']
  15.      [0.453, '0.894, 0.867, 0.780', 0.624, '0.784, 0.788, 0.788']
  16.      [0.624, '0.784, 0.788, 0.788', 0.726, '0.851, 0.812, 0.741']
  17.      [0.726, '0.851, 0.812, 0.741', 0.863, '0.647, 0.655, 0.655']
  18.      [0.863, '0.647, 0.655, 0.655', 1.001, '0.910, 0.788, 0.788'])
  19.   Iridescence(.3,.3,.3)
  20.  ]
  21.  Scale (12,12,12)
  22. ]
  23.  
  24. Declare swirl_map = SpectrumOfColors(
  25.    [0.000, '0.000, 0.000, 0.000', 1.000, 0.500, '0.451, 0.000, 0.333', 0.502]
  26.    [0.500, '0.451, 0.000, 0.333', 0.502, 0.983, '1.000, 0.141, 0.141', 0.000]
  27.    [0.983, '1.000, 0.141, 0.141', 0.000, 1.001, '0.000, 0.000, 0.000', 1.000])
  28. Declare nx = x + 5 * dnoise(Po)[X]
  29. Declare ny = y + 5 * dnoise(Po)[Y]
  30. Declare nz = z + 5 * dnoise(Po)[Z]
  31. Declare swirl = fmod((nx-floor(nx)) + (ny-floor(ny)) + (nz-floor(nz)), 1)
  32.  
  33. Declare TEX2 = Shader [ FunctionalSurface [
  34.    Color swirl_map[swirl]
  35.    Ka 0.025
  36.    Kd 0.02
  37.    Ks (0.1, white)
  38.    Kt(0.985*|N . I|, 1.425, white)
  39.    Kr .1
  40.    PhongSpecularBRDF 15
  41. //   Iridescence(.2,.25,.3)
  42.    Dispersion(1.1, 10)
  43.   ]
  44. ]
  45.  
  46. Declare TEX3 = Shader [ PlainSurface [
  47.    Color '0.9,0.57,0.46'
  48.    Kd 0.9
  49.    Ks (0.25, '0.9,0.57,0.46')
  50.    BlinnSpecularBRDF 5
  51.    Kr 0.3
  52.    Iridescence(0.3,0.4,0.1)
  53.   ]
  54. ]
  55.  
  56. Declare TEX4 = Shader [ PatternSurface [
  57.   PatternModifiers(1,1,0)
  58.   Octaves 4
  59.   Turbulence 4
  60.   Kd 0.85
  61.   Ks 0.15
  62.   CookSpecularBRDF 4
  63.   SpectrumOfColors(
  64.      [0.000, '1.000, 0.718, 0.541', 0.202, '0.890, 0.651, 0.612']
  65.      [0.202, '0.890, 0.651, 0.612', 0.298, '1.000, 0.820, 0.675']
  66.      [0.298, '1.000, 0.820, 0.675', 0.377, '0.890, 0.643, 0.612']
  67.      [0.377, '0.890, 0.643, 0.612', 0.465, '0.937, 0.729, 0.561']
  68.      [0.465, '0.937, 0.729, 0.561', 0.544, '0.878, 0.604, 0.565']
  69.      [0.544, '0.878, 0.604, 0.565', 0.640, '0.984, 0.780, 0.655']
  70.      [0.640, '0.984, 0.780, 0.655', 0.860, '1.000, 0.863, 0.635']
  71.      [0.860, '1.000, 0.863, 0.635', 0.982, '1.000, 0.765, 0.620']
  72.      [0.982, '1.000, 0.765, 0.620', 1.001, '1.000, 0.718, 0.541'])
  73.   Iridescence(.3,.3,.3)
  74.  ]
  75.  Scale (15,15,15)
  76. ]
  77.  
  78. static THRESH = 0.7